Weather forecasts

saveRDS(analysed_data, file = "analysed_data.rds")

Set Working Directory, Load Config and Source Files

    source(file = "map")

Ostrzeżenie: cannot open file 'map': No such file or directoryError in file(filename, "r", encoding = encoding) : 
  cannot open the connection

Try to load data from file, if not available, download and prepare data

    if (file.exists("analysed_data.rds")) {
        analysed_data <- readRDS("analysed_data.rds")
    } else {
        preselected_data    <- preselect_data();
        prepared_data       <- download_and_prepare_data(preselected_data)
        best_forecast_model <- estimate_best_forecast_model(prepared_data)
        analysed_data       <- forecast_data(prepared_data, best_forecast_model)
        saveRDS(analysed_data, file = "analysed_data.rds")
    }

Try to load plots from file, if not available, create plots

    if (file.exists("plots.rds")) {
        plots <- readRDS("plots.rds")
    } else {
        plots <- create_plots(analysed_data)
        saveRDS(plots, file = "plots.rds")
    }

##################################################################
########################## PLOTTTING #############################
##################################################################

Creating yearly plots...
Yearly plots created.
------------------------------------------------------------------
Creating monthly plots for SG000061612...
Creating monthly plots for AGE00147716...
Creating monthly plots for AGE00147718...
Creating monthly plots for AGE00147708...
Creating monthly plots for AGE00147719...
Creating monthly plots for AYM00089034...
Creating monthly plots for AYM00089512...
Creating monthly plots for AYM00089606...
Creating monthly plots for AYM00089050...
Creating monthly plots for AYM00089004...
Creating monthly plots for CE000434730...
Creating monthly plots for UZM00038457...
Creating monthly plots for KZ000035700...
Creating monthly plots for TX000038763...
Creating monthly plots for TX000038895...
Creating monthly plots for ASN00094029...
Creating monthly plots for ASN00026026...
Creating monthly plots for ASN00023000...
Creating monthly plots for ASN00038003...
Creating monthly plots for ASN00031010...
Creating monthly plots for UK000056225...
Creating monthly plots for GM000004204...
Creating monthly plots for BE000006447...
Creating monthly plots for GME00127462...
Creating monthly plots for AU000005901...
Creating monthly plots for USW00014838...
Creating monthly plots for CA006139520...
Creating monthly plots for CA006150689...
Creating monthly plots for USC00144559...
Creating monthly plots for USW00094728...
Creating monthly plots for RQC00667292...
Creating monthly plots for RQC00662801...
Creating monthly plots for RQC00665097...
Creating monthly plots for RQC00665807...
Creating monthly plots for RQC00664702...
------------------------------------------------------------------

Print Yearly Plots

    print(plots$Historical$Yearly$TMAX)

NULL

    print(plots$Historical$Yearly$TMIN)

NULL

Print Monthly Plots

    for (month in seq(1, length(plots$Forecasted$Monthly))) {
        print(plots$Forecasted$Monthly[[month]]$TMAX)
        print(plots$Forecasted$Monthly[[month]]$TMIN)
    }

World map

# Wybrany miesiąc i rok
selected_month <-4
selected_year <- 2020
# Przetwarzanie danych na listy
lon <- lapply(analysed_data, function(x) x$Informations$Lon)
lat <- lapply(analysed_data, function(x) x$Informations$Lat)
station_ID <- lapply(analysed_data, function(x) x$Informations$Station_ID)
temperature <- lapply(analysed_data, function(x) x$Measurements$MeasurementValue)

# Rysowanie mapy
world_map <- createWorldMap(lat, lon, station_ID, temperature)
world_map

Ostrzeżenie: 'scattergeo' objects don't have these attributes: 'colorbar'
Valid attributes include:
'connectgaps', 'customdata', 'customdatasrc', 'featureidkey', 'fill', 'fillcolor', 'geo', 'geojson', 'hoverinfo', 'hoverinfosrc', 'hoverlabel', 'hovertemplate', 'hovertemplatesrc', 'hovertext', 'hovertextsrc', 'ids', 'idssrc', 'lat', 'latsrc', 'legendgroup', 'legendgrouptitle', 'legendrank', 'line', 'locationmode', 'locations', 'locationssrc', 'lon', 'lonsrc', 'marker', 'meta', 'metasrc', 'mode', 'name', 'opacity', 'selected', 'selectedpoints', 'showlegend', 'stream', 'text', 'textfont', 'textposition', 'textpositionsrc', 'textsrc', 'texttemplate', 'texttemplatesrc', 'transforms', 'type', 'uid', 'uirevision', 'unselected', 'visible', 'key', 'set', 'frame', 'transforms', '_isNestedKey', '_isSimpleKey', '_isGraticule', '_bbox'
Ostrzeżenie: 'scattergeo' objects don't have these attributes: 'colorbar'
Valid attributes include:
'connectgaps', 'customdata', 'customdatasrc', 'featureidkey', 'fill', 'fillcolor', 'geo', 'geojson', 'hoverinfo', 'hoverinfosrc', 'hoverlabel', 'hovertemplate', 'hovertemplatesrc', 'hovertext', 'hovertextsrc', 'ids', 'idssrc', 'lat', 'latsrc', 'legendgroup', 'legendgrouptitle', 'legendrank', 'line', 'locationmode', 'locations', 'locationssrc', 'lon', 'lonsrc', 'marker', 'meta', 'metasrc', 'mode', 'name', 'opacity', 'selected', 'selectedpoints', 'showlegend', 'stream', 'text', 'textfont', 'textposition', 'textpositionsrc', 'textsrc', 'texttemplate', 'texttemplatesrc', 'transforms', 'type', 'uid', 'uirevision', 'unselected', 'visible', 'key', 'set', 'frame', 'transforms', '_isNestedKey', '_isSimpleKey', '_isGraticule', '_bbox'